home *** CD-ROM | disk | FTP | other *** search
/ BMUG Revelations / BMUG Revelations.toast / Programming / Programming Languages / UCB Logo 3.0 / logolib / pon < prev    next >
Encoding:
Text File  |  1992-09-04  |  153 b   |  10 lines  |  [TEXT/JV01]
  1. to pon :names
  2. ignore error
  3. catch "error [po namelist :names]
  4. local "err
  5. make "err error
  6. if not emptyp :err [(throw "error first bf :err)]
  7. end
  8.  
  9. bury "pon
  10.